home *** CD-ROM | disk | FTP | other *** search
/ The Epic Interactive Enc…lopedia of the Paranormal / The Epic Interactive Encyclopedia of the Paranormal (1997).iso / savcode / cando / exactsearch.txt < prev    next >
Text File  |  1992-09-02  |  329b  |  14 lines
  1. ;the text string to search with is "text2search"
  2. ;the documentname is "indexfile"
  3.  
  4. If text2search<>""
  5.     WorkWithDocument "indexfile"
  6.     MoveCursorTo STARTOF DOCUMENT 
  7.     
  8.     SetWordDelimiters ","" "";"":""."
  9.     SearchFor text2search,BYWORD NOCASE 
  10.     
  11.     MoveCursorTo ENDOF LINE 
  12.     Let subject2select=charstobegofline
  13.     Do "SelectSubject"
  14. EndIf